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— Includes. Mesa Edited by Sandman on October 14, 1977 1:57 PM 

DIRECTORY 

AUoDefs: FROM "altodefs", 
AUoFileDefs: FROM "altof iledefs" , 
BcdDefs: FROM "bcrfdefs", 
CommanderDef s: FROM "comftianderdef s" . 
DirectoryOefs: FROM "directorydef s" , 
ImageDefs: FROM "imagedefs", 
lODefs: FROM "iodefs", 
Mopcodes: FROM "mopcodes", 
OutputOefs: FROM "outputdef s", 
SymDefs: FROM "SymOefs", 
SegmentDefs: FROM "segmentdefs", 
StringDefs: FROM "stringdef s" , 
SymbolTableOefs: FROM "SymbolTableOef s" , 
SystemDefs: FROM "SystomOef s", 
TimeDefs: FROM "timedefs"; 

DEFINITIONS FROM AUoDefs. AUoFileDefs, SegmentDefs, OutputDefs; 

Includes: PROGRAM 

IMPORTS CommanderDefs, DirectoryOefs, lOOefs, OutputDefs. SegmentDefs, StringDefs, 
SymbolTableOefs, SystemDefs. ImageDefs, TimeDefs - PUBLIC BEGIN 

NullTime: TimeDefs . PackedTime = [0,0]; 

NullStamp: BcdDefs .Vers ionStamp = [FALSE, 0, 0, [0,0]]; 

SP: CHARACTER = ' ; 

FF: CHARACTER = 14C; 

FileEntry: TYPE = RECORD [ 

link: FEPtr. 

name: STRING, 

includes: POINTER TO Includeltem, 

includedBy: POINTER TO Includeltem, 

stamp: BcdDefs .VersionStamp, 

mark: BOOLEAN, 

busy: BOOLEAN. 

bad: BOOLEAN]; 
FEPtr: TYPE = POINTER TO FileEntry; 

fileLiSt: POINTER TO FileEntry ♦- NIL; 

Includeltem: TYPE = RECORD [ 
link: POINTER TO Includeltem, 
includedFile: FEPtr, 
stamp: BcdDefs .VersionStamp]; 

TimeLess: PROCEDURE [a.b: TimeDefs . PackedTime] RETURNS [BOOLEAN] = 
BEGIN 
RETURN[IF a.highbits = b.highbits THEN a.lowbits < b.lowbits 

ELSE a.highbits < b.highbits] 
END; 

CompareString: PROCEDURE [a,b: STRING] RETURNS [{less . equal , greater}] = 
BEGIN 
CharAnd: MACHINE CODE [CHARACTER .WORD] RETURNS [CHARACTER] = 

INLINE [Mopcodes. ZAND]; 
1: CARDINAL = MIN[a . leng th , b . length] ; 
i: CARDINAL: 
ca, cb: CHARACTER; 
FOR i IN [0. .1) DO 

ca <- a[ i ] ; 

cb - b[ i]; 

IF ca IN ['a..'z] THCN ca <- CharAnd[ca . 1378] ; 

IF cb TN ['a..'z] THTN cb ^ CharAnd[cb , 137B] ; 

IF ca < cb THEN RETURN[1 ess] ; 

IF ca > cb THEN RETURN[greater] ; 

ENDLOOP; 
RCTURN[SELCCT a. length FROM 

< b . leng th => less . 

b. length => equal . 

ENDCASE => greater] 
END; 

CopyString: PROCEDURE [s: STRING] RETURNS [copy: STRING] = 
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BEGIN 

copy ♦■ SystemDefs.AnocateHeapString[s. length]; 

StringDefs.AppendString[copy,s]; 

RETURN 

END; 

GetFile: PROCEDURE [name: STRING] RETURNS [p: FEPtr] = 
BEGIN 

last: FEPtr ^ LOOPHOLE[0f ileList] ; -- assumes link field is word zero 
FOR p ♦■ fileList, p. link UNTIL p = NIL DO 
SELECT CompareString[p. name, name] FROM 

less => last ♦• p; 

equal => RETURN; 

ENOCASE => EXIT; 
ENDLOOP; 
p ♦■ SystemDefs.AllocateHeapNode[SIZE[FileEntry]]; 
p.l ink ♦• last. 1 ink; 
last. 1 ink ♦- p; 
p. name *- CopyString[nam6]; 
p. stamp *• NullStamp; 
p. mark ♦• p. busy *• p. bad <- FALSE; 
p. includes ♦- p.includedBy ♦• NIL; 
RETURN 
END; 

Newlncludeltem: PROCEDURE [link: POINTER TO Includeltem, fe: FEPtr, stamp: BcdDef s . VersionStamp] 
RETURNS [POINTER TO Includeltem] = 
BEGIN 

p: POINTER TO Includeltem; 

last: POINTER TO Includeltem <- L00PH0LE[91 ink] ; -- assumes link field is word zero 
FOR p ♦- link, p. link UNTIL p = NIL DO 

SELECT CompareString[p. includedFile. name, fe. name] FROM 

less => last ♦• p; 

equal => RETURN[1 ink]; 

ENDCASE => EXIT; 
ENDLOOP; 
p *- SystemOef s .Al locateHeapNode[SIZE[Includ8ltem]] ; 
p. 1 ink ♦• last. 1 ink; 
last . 1 ink ♦• p; 
p . includedFi le ♦• fe; 
p. stamp ♦- stamp; 
RETURN[link] 
END; 

InvalidObjectFile: ERROR [f i le: Fi 1 eHandle] = CODE; 

LoadSymbols: PROCEDURE [f ile : FileHandle] RETURNS [symseg : Fi leSegmentHandle] = 
BEGIN 

bed: POINTER TO BcdDefs.BCD; 
pages: Al toDef s . PageCount; 
mtb: CARDINAL; 

mti: BcdDefs.MTIndex = FIRST[BcdDef s .MTIndex] ; 
bcdseg: F i leSegmentHandle ♦- NewF i leSegment[Fi le , 1 , 1 ,Read] ; 
Swapln[bcdseg] ; 

bed ♦- Fi leSegmentAddress[bcdseg] ; 
IF (pages ^ bcd.nPages) # 1 THEN 

BEGIN 

Unlock[bcdseg] ; 

MoveFneSegment[bcdseg, 1, pages]; 

Swapln[bcdseg] ; 

bed ♦- Fi leSegmentAddress[bcdseg] ; 

END; 
BTGIN CNABLF UNWIND => 

BFGIN 

Unlock[bcdseg] ; 

Deleter i 1 eSegmenL[ bcdseg] ; 

CND; 
ir bed. versionident ff BedDef s .Vers ionID OR bed.nModules ^ 1 THEN 

FRROR Inval idObjectFile[f ile]: 
mtb ^ LOOPHOI r[bcd,CARDrNAL]+bcd.mtOfrset; 
symseg ♦- findSegmen t[bedseg , (mtb+mti ) . sseg , FALSE]; 
IF symseg = NIL THfN fRROR Inval i dObjec tFile[ F 11 e] ; 
symseg. class *- symbols; 
FNO: 
Unlock[bcdseg] ; 
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De1eteFileSegment[bcdseg]; 

RETURN 

END; 

FindSegment: PROCEDURE [seg: FileSegmentHandle, segdesc: BcdDefs .SegOesc, long: BOOLEAN] 
RETURNS [FileSegmentHandle] = 
BEGIN 

ss: StringOefs.SubStringDescriptor; 
file: SegmentDefs .FileHandle; 
name: STRING; 

bed: POINTER TO BcdDefs. BCD ♦• Fi leSegmentAddress[seg]; 
IF segdesc. file = BcdDefs . FTNull THEN RETURN[NIL] 
ELSE IF segdesc. file = BcdDefs. FTSelf THEN file ♦• seg. file 
ELSE 

BEGIN OPEN f: LOOPHOLE[bcd+bcd . f tOf fset . CARDINAL]+segdesc.f ile; 

name ♦• SystemDefs.AnocateHeapString[f . name, length+4] ; 

ss ^ [LOOPHOLE[bcd+bcd.ssOffset, STRING], f . name . of fset , f .name. length]; 

StringDefs.AppendSubString[name. 9ss]; 

Check For Ex tens ion [name, " .bed"]; 

file <- NewFile[name , Def aul tAccess , Def aul tVersion]; 

SystemDef s . FreeHeapString[name]: 

END; 
RETURN[NewFileSegment[f ile, segdesc. base, 

segdesc. pages + (IF long THEN segdesc. extraPages ELSE 0), Read]]; 
END; 

CheckForExtension: PROCEDURE [name, ext: STRING] « 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .name. length) DO 

IF name[i] = ' . THEN RETURN; 

ENDLOOP; 
St ringDefs. Appends tring[name, ext]; 
RETURN 
END; 

Processlncludes- PROCEDURE [includer: FEPtr, symseg: FileSegmentHandle] = 
BEGIN OPEN SymbolTableDefs; 

symbols: SymbolTableBase = AcquireSymbolTable[Tabl eForSegment[symseg]] ; 
mdLimit: SymDef s . MDIndex = LOOPHOLEi[symbol s . stHandle .mdSize] ; 
mdi: SymOefs .MDIndex ; 
includee: FEPtr; 

ss: StringOefs.SubStringDescriptor; 
tname: STRING ^ [40]; 
i: CARDINAL: 

lODef s .WriteLine[ includer. name]; 
includer. stamp *• symbol s. stHandle. version; 

FOR mdi ^ FIRST[SymDers .MDIndex] + SIZE[SymDef s .MORecord] . mdi + SIZE[SymOef s .MORecord] 
UNTIL mdi = mdLimit DO 

symbols .SubStringForHash[@s$, (symbols .mdb+mdi ) .mdhti] ; 

tname. length ♦- 0; 

FOR i IN [0. .ss. length) DO 

IF ss.base[ss.offset+i] = '. THEN EXIT; 
StringDefs .AppendChar[ tname, ss.base[ss.offset+i]]; 
ENDLOOP; 
includee *- GetF ile[tname] ; 
incl uder . incl udes ♦■ Newlncl udel tem[ 

includer . incl udes , includee, ( symbols .mdb+mdi ) .mdStamp] ; 
incl udee. includedBy ♦- 

Newlncl ude I tem[ includee. includedBy, includer, Nul 1 Stamp] ; 
CMDLOOP; 
ReleaseSymbolTable[symbols] ; 
RFTURN 
END; 

Striprxtension: PROCCDURF [name . ex t : STRING] = 
BCGIN OPTN StringDers: 
i, j: INTrCER; 
ext. length ♦- 0; 
i *" ( j *■ name . length ) - 1; 
ir name[i]=' . THFN i <- (j ♦- i) - 1; 
UNTIL name[i] = ' . DO 

TF name[ i] = ' ! THEN j ^ i; 

IF ( i - i-1) < THFN RFTURN; 

FNDLOOP; 
i ♦- i + 1; 
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UNTIL i«j DO 

AppendChar[ext.name[i]]; 

i ^ 1+1; 

ENDLOOP; 
RETURN 
END; 

ext: STRING ♦• [FilenameChars+1]; 

IsBCD: PROCEDURE [fp:POINTER TO FP, name:STRING] 
RETURNS [BOOLEAN] » 
BEGIN OPEN StringOefs; 
file: FileHandle; 
syms: F ileSegmentHandle; 
fe: FEPtr; 
i: CARDINAL: 
tname: STRING ♦- [40]; 
St r i pEx tens ion[ name, ext]; 
IF EquivalentString[ext."bcd"] THEN 
BEGIN 

file *- InsertFi1e[fp .Read]; 
syms ♦• LoadSymbols[f ile 

I InvalidObjectFile => GOTO invalidfile; ANY => GOTO badfile]; 
FOR i IN [0. .name. length) DO 
IF name[i] = ' . THEN EXIT; 
St ringDefs.AppendChar[ tname, name[i]]; 
ENDLOOP; 
fe ♦• GetFne[tname] ; 
ProcessInc1udes[fe, syms]; 
Del eteF i 1 eSegment[syms ] ; 
EXITS 

invalidfile => NULL; 
badfile «> 

BEGIN OPEN lOOefs; 
WriteString["File "]; 
Wri teString[name] ; 
WriteLine[" is a bad filell"]; 
END; 
END; 
RETURN[FALSE] 
END; 

PutStamp: PROCEDURE [s: BcdOef s . VersionStamp] = 
BEGIN 

PutTime[s. time]; 
PutString[" #"]; 

Pu tNumber[s . net , [8 . FALSE . FALSE . 1 ] ] ; 
PutString[" 3^"]; 

PutNumber[s. host, [8. FALSE, FALSE, 1]]; 
IF s. zapped THEN PutString[" zapped!!!"]; 
RETURN 
END; 

printDate: BOOLEAN; 

FileName: PROCEDURE [fe: FEPtr] = 
BEGIN 

PutStr ing[fe. name] ; 

IF -printDate OR fe. stamp . time = NullTime THEN RETURN; 
PutString[" ("]; 
Pu tStamp[fe. stamp] ; 
PutChar[' )]; 
RETURN 
END; 

OutputStats: PROCEDURE = 
BEGIN 

badfile: BOOLEAN; 
fe: FEPtr; 

i: POINTER TO Tncludeltem; 
printDate ♦- TRUE; 
FOR fe *- fileList, fe.link UNTIL fe = NIL DO 

BEGIN 

If fe. stamp, time = NullTime TllfN GO TO loop 

ELSE F ileName[fe]; 
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PutString[" includes"]; 

IF fe. includes = NIL THEN PutString[" nothing"] 

ELSE FOR i ♦- fe. includes, i.link UNTIL i « NIL DO 

badfile ♦• i, stamp # i . includedFile. stamp AND i . includedFile. stamp # NullStamp AND i. stamp # Nul 
**lStamp; 

PutCR[]; 
PutChar[SP]: 

PutChar[IF badfile THEN '* ELSE SP]; 
FileName[i . includedFile]; 
IF badfile THEN 
BEGIN 

fe.bad ♦• TRUE; 

PutString['* included version was "]; 
PutStamp[i .stamp]; 
END 
ELSE IF i. stamp = NullStamp THEN 

PutString[" ** never referenced"]; 
ENDLOOP; 
PutCR[];PutCR[]; 
EXITS loop => NULL; 
END; 

ENDLOOP; 
PutChar[FF]; 
printDate ♦• FALSE; 

FOR fe *- fileList, fe.link UNTIL fe = NIL DO 
BEGIN 

FneName[fe]; 

PutString[" is included by"]; 

IF fe.includedBy = NIL THEN PutString[" nothing"] 
ELSE FOR i ♦- fe.includedBy, i.link UNTIL i = NIL DO 
PutCR[]: 

PutStringC" "]; 
FileName[i .includedFile]; 
ENDLOOP; 
PutCR[];PutCR[]; 
END; 

ENDLOOP; 
END; 

Compile: PROCEDURE [fe: FEPtr] = 
BEGIN 

i: POINTER TO Includeltem; 
IF fe.mark THEN RETURN; 
IF fe.busy THEN 

BEGIN 

PutString[" 
list of included modules from "]; 

PutString[fe. name] ; 

PutString[" forms a circle 

••]; 

RETURN 

END; 
fe.busy ♦• TRUE; 
FOR i ^ fe. includes, i.link UNTIL i = NIL DO 

Compi le[i . includedFile]; 

ENDLOOP; 
PutChar[SP]; 
PutString[fe . name] ; 
fe.mark «- TRUE; 
fe.busy ♦- FALSE; 
END; 

OutpulCompileOrder: PROCEDURE - 
BEGIN 
fe: FEPtr; 
PuLString["Comp ilat ion Order: 

"]; 

FOR fe ^ fileList, fe.link UNTIL fe = NIL DO 

Comp i le[fe] ; 

rNDLOOP; 
PutCR[]: PutCR[]; 
END; 

Init: PROCEDURE = 

BEGIN OPEN SystemOefs: 
fe: FEPtr; 
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i: POINTER TO Includeltem; 
UNTIL fileList = NIL DO 

UNTIL fileList. includes « NIL DO 
i ♦- fileList. includes. link; 
FreeHeapNode[ fileList. includes]; 
fileList. includes ♦• i; 
ENDLOOP; 
UNTIL fileList. includedBy » NIL DO 
i ^ fileList, includedBy. link; 
FreeHeapNode[f ileList. includedBy]; 
fileList. includedBy <- i; 
ENDLOOP; 
fe ^ fileList. link; 
FreeHeapString[f ileList.name]; 
FreeHeapNode[f i leList]; 
fileList ^ fe; 
ENDLOOP; 
RETURN 
END; 

xincludes: PROCEDURE [root: STRING] » 
BEGIN 
Init[]; 

IODefs.WriteChar[IODefs.CR]; 
DirectoryDefs. EnunierateDirectory[Is8CD] ; 
OpenOutput[root , " . 1 ist"] ; 
OutputCompileOrder[] ; 
OutputStats[]; 
CloseOutput[]; 
END; 

command: CommanderDefs .CommandBlockHandle; 

Loadlncludes: PROCEDURE = 
BEGIN OPEN TimeDefs; 

command : CommanderDefs .CommandBlockHandle; 
herald: STRING <- SystemOefs . AnocateHGapString[50] ; 
StringDef s .AppendString[herald , "Alto/Mesa Include Checker "]; 
START CommanderDefs .Commander [her aid] ; 

command *- CommanderDefs . AddCommand["Incl udes" , LOOPHOLE[x Includes ] , 1]; 
command .params[0] *• [type: string, prompt: "Filename"]; 
START IODefs.StreamIO[NIL, NIL]; 

ImageDef s .MakeImage["IncludeChecker. image. " , FALSE]; 
Ap p en dDay Time [herald , UnpackDT[ImageOef s . ImageVers ion[] . time]] ; 
herald, length <- herald . length - 3; 
RESTART CommanderDefs . Commander; 
END; 

-- MAIN BODY CODE 

LoadIncludes[] ; 

END. 



